Evaluate EXPRESSION and print value in minibuffer.
Value is also consed on to front of the variable `values'." (byte-code "└┴┬─┼%Cç" [read-from-minibuffer "Eval: " nil read-expression-map t minibuffer-sexp-history] 6)])
(fset 'kill-region #[(beg end &optional verbose) "½â ¼è┬½â─¬ü┼!ê½ï╟╚ ] ^Z\"ê╔ \"ê |ç" [beg end error zmacs-regions "The region is not active now" "The mark is not set now" verbose message "Killing %d characters" copy-region-as-kill] 5 "\
Kill between point and mark.
The text is deleted but saved in the kill ring.
The command \\[yank] can retrieve it from there.
(If you want to kill and then yank immediately, use \\[kill-ring-save].)
This is the primitive for programs to kill text (as opposed to deleting it).
Supply two arguments, character numbers indicating the stretch of text
to be killed.
Any command that calls this function is a \"kill command\".
If the previous command was also a kill command,
the text killed this time appends to the text killed last time
to make one entry in the kill ring." "*r\np"])
(defvar kill-hooks nil "\
If non-nil, this should be a function or functions of one argument which
are called with the string most recently added to the kill ring. You can use
this to, for example, make the most recent kill become the X Clipboard
Save the region as if killed, but don't kill it." "r"])
(fset 'kill-ring-save #[(beg end) "└ \n\"êè`\nU½â ¬ü\nbê├`!¡â─┼!)ç" [copy-region-as-kill beg end pos-visible-in-window-p sit-for 0] 3 "\
Save the region as if killed, but don't kill it." "r"])
(fset 'append-next-kill #[nil "t½ê└┬├!ê¬é└┼ëç" [kill-region this-command message "If the next command is a kill, it will append" last-command t zmacs-region-stays] 2 "\
Cause following command, if kill, to append to previous kill." nil])
(fset 'rotate-yank-pointer #[(arg) "Gë┬U½à├─!¬Ä GZ\\ ª¢ë)ç" [kill-ring length 0 error "Kill ring is empty" arg kill-ring-yank-pointer] 4 "\
Rotate the yanking point in the kill ring." "p"])
(fset 'yank-pop #[(arg) "┴=¼ä┬├!ê┴`┼╞!W`┼╞!|ê╚ !ê╩`!ê@cê¡â╠╞!)ç" [last-command yank error "Previous command was not a yank" this-command mark t before rotate-yank-pointer arg set-mark kill-ring-yank-pointer exchange-point-and-mark] 3 "\
Replace just-yanked stretch of killed-text with a different stretch.
This command is allowed only immediately after a yank or a yank-pop.
At such a time, the region contains a stretch of reinserted
previously-killed text. yank-pop deletes that text and inserts in its
place a different stretch of killed text.
With no argument, the previous kill is inserted.
With argument n, the n'th previous kill is inserted.
If n is negative, this is a more recent kill.
The sequence of kills wraps around, so that after the oldest one
Return this buffer's mark value as integer, or nil if no mark.
If `zmacs-regions' is true, then this returns nil unless the region is
currently in the active (hilighted) state. With an argument of t, this
returns the mark (if there is one) regardless of the active-region state.
You should *generally* not use the mark unless the region is active, if
the user has expressed a preference for the active-region model.
If you are using this in an editing command, you are most likely making
a mistake; see the documentation of `set-mark'."])
(fset 'set-mark #[(pos) "└┴!\npôç" [mark-marker t pos] 3 "\
Set this buffer's mark to POS. Don't use this function!
That is to say, don't use this function unless you want
the user to see that the mark has moved, and you want the previous
mark position to be lost.
Normally, when a new mark is set, the old one should go on the stack.
This is why most applications should use push-mark, not set-mark.
Novice emacs-lisp programmers often try to use the mark for the wrong
purposes. The mark saves a location for the user's convenience.
Most editing commands should not alter the mark.
To remember a location for internal use in the Lisp program,
store it in a Lisp variable. Example:
(let ((beg (point))) (forward-line 1) (delete-region beg (point)))."])
(defvar mark-ring nil "\
The list of saved former marks of the current buffer,
most recent first.")
(make-variable-buffer-local 'mark-ring)
(defconst mark-ring-max 16 "\
*Maximum size of mark ring. Start discarding off end if gets this big.")
(fset 'set-mark-command #[(arg) "¼å┴ ê┬ ç├─!¼ä┼╞!ç├─!bê╟ ç" [arg push-mark zmacs-activate-region mark t error "No mark set in this buffer" pop-mark] 2 "\
Set mark at where point is, or jump to mark.
With no prefix argument, set mark, and push previous mark on mark ring.
With argument, jump to mark, and pop into mark off the mark ring.
Novice emacs-lisp programmers often try to use the mark for the wrong
purposes. See the documentation of `set-mark' for more information." "P"])
(fset 'exchange-point-and-mark #[(&optional dont-activate-region) "└┴!ë¼ä├─!ê┼`!ê\nbê¼â╟ ê)╚ç" [mark t omark error "No mark set in this buffer" set-mark dont-activate-region zmacs-activate-region nil] 3 "\
Put the mark where point is now, and point where the mark is now." nil])
If there is no character in the target line exactly over the current column,
the cursor is positioned after the character in that line which spans this
column, or at the end of the line if it is not long enough.
The command \\[set-goal-column] can be used to create
a semipermanent goal column to which this command always moves.
Then it does not try to move vertically.
If you are thinking of using this in a Lisp program, consider using
`forward-line' with negative argument instead.. It is usually easier
to use and more reliable (no dependence on goal column, etc.)." "p"])
(defconst track-eol nil "\
*Non-nil means vertical motion starting at end of line keeps to ends of lines.
This means moving to the end of each line moved onto.")
(byte-code "└┴┬!¼é├─┬┼╞#ê┬!ç" [make-variable-buffer-local boundp goal-column nil put variable-documentation "*Semipermanent goal column for vertical motion, as set by \\[set-goal-column], or nil."] 5)
(defvar temporary-goal-column 0 "\
Current goal column for vertical motion.
It is the column where point was at the start of current run of vertical motion commands.")
(fset 'set-fill-column #[(arg) "¿½â¬üi┬─┼ \"ç" [arg fill-column t zmacs-region-stays message "fill-column set to %d"] 3 "\
Set fill-column to current column, or to argument if given.
fill-column's value is separate for each buffer." "P"])
(fset 'set-selective-display #[(arg) "┴=½ä┬├!ê¡â┼!╞╟ ╚╟ !\"ê╔╩┴\"ê╦┴\"ê╔╠┴\"ç" [selective-display t error "selective-display already in use for marked lines" arg prefix-numeric-value set-window-start selected-window window-start princ "selective-display set to " prin1 "."] 4 "\
Set selective-display to ARG; clear it if no arg.
When selective-display is a number > 0,
lines whose indentation is >= selective-display are not displayed.
selective-display's value is separate for each buffer." "P"])
When using this interactively, supply a Lisp expression for VALUE.
If you want VALUE to be a string, you must surround it with doublequotes." (byte-code "└┴!├┼\n╟╚╔\n\"!+Dç" [read-variable "Set variable: " var (funcall myhelp) minibuffer-help-form #[nil "└É┴\n!ê├─!ê├┼\n╞\"╟╚O!ê╔\n!½ì╩├╠!ê┴\nJ!ê)╚æç" ["*Help*" prin1 var princ "\nDocumentation:\n" documentation-property variable-documentation 1 nil boundp 20 print-length "\n\nCurrent value: "] 5] myhelp eval-minibuffer format "Set %s to value: "] 5)])